home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed12.d64 / scramble 6 (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  7KB  |  231 lines
  1. 1 GOTO910
  2. 2 PRINT"x[169][141][169][141]X` [234][255][169][255][133][145]L4[234]x[169]1[141][169][234][141]X` 
  3. 3 [153]"xSTEPGINPUTSTOPSTEPINPUTONX` (null)(null)STEP(null)INPUTLISTLX(null)xSTEPUINPUTSTOPSTEP(null)INPUTONX`    
  4. 4 PRINT"xhhh[170]h[168]hhhhhhh[152]H[138]HX`    
  5. 5 [153]"hhhhhhh`  
  6. 6 PRINT"[160][255][200][132][251][169][216][133][252] [241][183][138][162][160][255][200][145][251][136][208][251][230][252][202][208][246]`   
  7. 7 [153]"NEWCLOSE(null)LEFT$>(null)ON(null)LET(null)(null)(null)(null)(null)(null)MID$(null)(null)`  
  8. 35 IFUW=0THENSYSUU,15
  9. 40 POKEUC,0:POKEUN,0:UR$="":UI$="":IFUL=0THENUL=39
  10. 45 GETUI$:IFUI$=""THEN45
  11. 50 UA=ASC(UI$):UR=LEN(UR$):IFUA=13ANDUR>0THENPOKEUC,1:PRINT" [157]";:GOTO70
  12. 55 IFUA=20THENON-(UR=0)GOTO45:UR$=LEFT$(UR$,UR-1):PRINT"[157]  [157][157]";:GOTO45
  13. 60 IFUR=ULTHEN45
  14. 65 GOSUB95:UR$=UR$+UI$:PRINTUI$;:GOTO45
  15. 70 IFUR$=UX$THENPRINT"[157] ";:GOTO145
  16. 75 FORUI=URTO1STEP-1:IFMID$(UR$,UI,1)=" "THENNEXT
  17. 80 UR$=LEFT$(UR$,UI):PRINT:RETURN
  18. 95 IFLEN(US$)=0THEN110
  19. 100 FORUI=1TOLEN(US$):IFUI$<>MID$(US$,UI,1)THENNEXT:UI$=""
  20. 105 RETURN
  21. 110 IFUA=46THENRETURN
  22. 115 IFUA=32ANDUR<>0THENRETURN
  23. 120 IFUA>47ANDUA<58THENRETURN
  24. 125 IFUA>64ANDUA<91THENRETURN
  25. 130 IFUA<193ORUA>218THENUI$="":RETURN
  26. 135 IFPEEK(UT)=UU%THENUI$=CHR$(UA-128)
  27. 140 RETURN
  28. 145 GOSUB170:POKE251,0:POKE252,US/256:POKE253,0:POKE254,UF:SYSUV
  29. 150 UZ=1:UV%=PEEK(UT):GOTO300
  30. 155 UZ=0:US$=UJ$:UG$=UK$:UT$=UL$:UP=UJ:UL=UK:PRINT"[147]";:IFUW=0THENPOKEUY,6:POKEUX,14
  31. 160 POKEUT,UV%:POKE251,0:POKE252,UF:POKE253,0:POKE254,US/256:SYSUV:IFUW=0THENSYSUU,15
  32. 165 POKEU1,U1%:POKEU2,U2%:POKEU3,U3%-1:POKEU4,U4%:GOTO35
  33. 170 U1%=PEEK(U1):U2%=PEEK(U2):U3%=PEEK(U3):U4%=PEEK(U4)
  34. 175 UJ$=US$:UK$=UG$:UL$=UT$:UJ=UP:UK=UL:RETURN
  35. 299 :
  36. 300 REM DERIVED FROM COMMODORE ONTARIO EDUCATIONAL SOFTWARE PROJECT 1983
  37. 310 REM PROJECT DIRECTOR: FRANK WINTER
  38. 320 REM PROGRAM NAME: SCRAMBLE 4.04
  39. 330 REM AUTHOR UNKNOWN
  40. 340 REM REVISED BY SANDRA BLANKENFELDT
  41. 399 :
  42. 400 PRINT"[147]":POKEUT,UL%:POKEUY,0:POKEUX,0
  43. 405 PRINT"            [201][206][211][212][210][213][195][212][201][207][206][211] [146]
  44. 410 [153]"    RIGHT$N THIS GAME, RIGHT$'LL GIVE YOU A "
  45. 415 [153]"    SCRAMBLED WORD AND THE FIRST            LETTER IN THE WORD."
  46. 420 [141]591
  47. 425 [153]"    RIGHT$T IS UP TO YOU TO UNSCRAMBLE           IT.":[141]591
  48. 430 [153]"    ATNFTER 10 SCRAMBLED WORDS HAVE
  49. 435 PRINT"    BEEN PRESENTED, YOUR SCORE WILL         BE DISPLAYED.
  50. 495 [141]830:[142]
  51. 499 :
  52. 500 [143] <YES> SOUND
  53. 505 SS[178]54272:[129]EE[178]SS[164]SS[170]28:[151]EE,0:[130]
  54. 510 [151]54296,15:[151]54277,42:[151]54278,250
  55. 515 [151]54276,23:[151]54273,23:[151]54272,191
  56. 520 [129]TM[178]1[164]150:[130]:[151]54276,32:[129]TM[178]1[164]200:[130]
  57. 525 [151]54296,0:[142]
  58. 530 [143] <YES> SOUND
  59. 535 SS[178]54272:[129]EE[178]SS[164]SS[170]28:[151]EE,0:[130]
  60. 540 [151]54296,15:[151]54277,18:[151]54278,242
  61. 545 [151]54276,33:[151]54273,4:[151]54272,48
  62. 550 [129]TM[178]1[164]300:[130]:[151]54276,32:[129]TM[178]1[164]400:[130]
  63. 555 [151]54296,0:[142]
  64. 560 [143] <BLIP> SOUND
  65. 565 SS[178]54272:[129]EE[178]SS[164]SS[170]28:[151]EE,0:[130]
  66. 570 [151]54296,6:[151]54277,42:[151]54278,250
  67. 575 [151]54276,23:[151]54273,23:[151]54272,191
  68. 580 [129]TM[178]1[164]30:[130]:[151]54276,32:[129]TM[178]1[164]50:[130]
  69. 585 [151]54296,0:[142]
  70. 590 [129]TM[178]1[164]500:[130]:[142]
  71. 591 [129]TM[178]1[164]1000:[130]:[142]
  72. 592 [129]TM[178]1[164]2000:[130]:[142]
  73. 593 [129]TM[178]1[164]3000:[130]:[142]
  74. 594 [129]TM[178]1[164]4000:[130]:[142]
  75. 800 [153]"LOAD";:[151]UT,UU%:[151]UY,0:[151]UX,0:[151]646,3
  76. 801 [153]"     A TPUG EDUCATIONAL PROGRAM
  77. 802 PRINT"          FOR C 64 COMPUTERS
  78. 803 [153]"                                        WAIT";
  79. 804 [153]"                                        WAIT";
  80. 805 [153]"                                        WAIT";
  81. 806 [153]"              SCRAMBLE 6                WAIT";
  82. 807 [153]"                                        WAIT";
  83. 808 [153]"                                        WAIT";
  84. 809 [153]"                                        WAIT":[141]591:[141]560
  85. 810 [153]"         INSTRUCTIONS?  Y/N
  86. 811 GETR$:IFR$<>"Y"ANDR$<>"N"THEN811
  87. 812 IFR$="Y"THENGOSUB400
  88. 813 PRINT"[147]  AND AWAY WE GO .........":GOSUB591:GOSUB500:GOSUB590
  89. 814 GOTO1000
  90. 826 RETURN
  91. 830 GOSUB591:GOSUB560
  92. 835 POKEUN,0:PRINTLEFT$(UD$,24);"[154] [208]RESS [211][208][193][195][197][160][194][193][210] TO CONTINUE [146][155]"
  93. 840 GETUI$:IFUI$<>" "THEN840
  94. 845 RETURN
  95. 850 UP=UP+1:PRINT"[147]"LEFT$(UT$+UP$,21);RIGHT$(UP$+UG$+STR$(UP),18)
  96. 855 PRINT" --------------------------------------"
  97. 860 IFUH=0THENPRINTLEFT$(UD$,24);LEFT$(UP$,7);"ANSWER, THEN PRESS RETURN[146]"
  98. 865 UH=0:PRINT"":RETURN
  99. 875 PRINTLEFT$(UD$,24);"           ONE MOMENT PLEASE...     ":RETURN
  100. 900 US=1024:U1=209:U2=210:U3=211:U4=214:UC=204:UB=2048:UX=53280:UD=2064
  101. 902 UT=53272:UU%=21:UL%=23:UP%=2151:UN=198:UY=53281:UU=2199:UE=2087
  102. 904 UC$=CHR$(155):UV=1214:UF=196:UV=2238
  103. 905 UD$="":UP$="                                      "
  104. 906 W=60:DIMW$(W),H(13),RH$(10)
  105. 907 UT$=" SCRAMBLE 4":REM PROGRAM TITLE
  106. 909 RETURN
  107. 910 GOSUB900:PRINT"[147]":PRINT"[160]":REM SHIFTED SPACE
  108. 920 GOTO800
  109. 970 GOSUB800:GOTO300
  110. 1000 PRINT"[147]"UC$;:RESTORE:POKEUY,0:POKEUX,0
  111. 1105 PRINT"[147]":POKEUT,UL%
  112. 1106 UT$=" [211]CRAMBLE 4":UP=0:UG$="[208]AGE":PRINT"[147]"
  113. 1110 S$="                                  [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]
  114. 1115 [143]W=60
  115. 1120 [143]IFHZ>0THEN GOTO 1165
  116. 1122 [143]DIMW$(W)
  117. 1123 [143]DIMH(13)
  118. 1124 [143]DIMRH$(10)
  119. 1125 [143]HZ=1
  120. 1128 F[178]0:T[178]0:Y[178]0:K[178]0:M$[178]"":[140]
  121. 1129 [129]M[178]1[164]13:H(M)[178]0:[130]
  122. 1130 [129]J[178]1[164]W:[135]W$(J)
  123. 1135 [139][195](W$(J))[179]3[176][195](W$(J))[177]12[167]K2[178]1
  124. 1140 [139]K2[178]1[167][153]"(null)(null)CLOSE(null)(null)(null)STR$(null)CLOSE(null)RIGHT$(null)LEFT$CLOSE(null)VAL(null)(null)CLOSE(null)LEFT$ATN(null)CLOSE2 (null)VAL(null)(null)VAL(null)(null)CLOSE(null)(null)CLOSECLOSECLOSECLOSE(null)(null)(null)VALCLOSE(null)LEFT$ATN(null)CLOSE12CLOSE(null)VAL(null)(null)VAL(null)(null)"
  125. 1141 [139]K2[178]1[167][137]300
  126. 1145 [130]
  127. 1165 P$[178]"(null)AGE"
  128. 1170 [153]" STR$O YOU WISH TO SEE ALL THE"
  129. 1175 [153]" WORDS BEFORE BEGINNING? "
  130. 1185 [153]" Y/N ?";
  131. 1187 [141]865:[153]"";
  132. 1190 US$[178]"YN":UL[178]1:[141]35:ZZ$[178]UR$
  133. 1195 [139]ZZ$[178]"Y"[167][153]"ONYES":[141]590:[137]1208
  134. 1200 [139]ZZ$[178]"N"[167][153]"ONNO":[137]1280
  135. 1208 G[178]0:D[178]0
  136. 1210 UH[178]1:[153]"LOAD":A[178]1
  137. 1215 [129]G[178]G[164]G[170]30:[153][166]A)W$(G)""
  138. 1220 [139]G[178]0[167][153]"";
  139. 1225 A$[178][196](G):[139][202](A$,3,1)[178]"0"[167][153]"";:A[178]13:D[178]D[170]1
  140. 1230 [139]D[177]1[167]A[178]26
  141. 1235 [139]G[177]W[171]1[167]P$[178]"BEGIN":[137]1243
  142. 1240 [130]
  143. 1243 [141]830:UH[178]1
  144. 1245 :
  145. 1250 :
  146. 1260 [139]G[179]W[167]A[178]0:D[178]0:[137]1210
  147. 1280 [153]"LOAD (null)HE GAME STARTS ....":[141]592:[141]560:[141]560
  148. 1281 CU[178]0:RI[178]0
  149. 1315 C$[178]"":Y[178]0:F[178]0
  150. 1330 CU[178]CU[170]1:[139]CU[178]11[167]1700
  151. 1332 [153]"LOAD":PG[178]UP
  152. 1340 [153]"LIST"S$" (null)NSCRAMBLE THE WORD:  "S$
  153. 1345 A[178][181](W[172][187](1))[170]1:RH$(CU)[178]W$(A)
  154. 1346 [139]CU[178]1[167]1350
  155. 1348 [129]NW[178]1[164]CU[171]1:[139]RH$(CU)[178]RH$(NW)[167][137]1345:[130]NW
  156. 1350 B$[178]W$(A):K[178][195](B$):[139]K[177]12[167]1345
  157. 1355 [153]" (null)HE FIRST LETTER IN THE WORD IS "[202](B$,1,1)
  158. 1360 [153]" "S$[166]14)"WAIT? ";:[129]V[178]1[164]K:[153]"-";:[130]
  159. 1365 D[178][181](K[172][187](1))[170]1:DR[178]0
  160. 1370 T[178]T[170]1:[139]D[178]H(T)[167]T[178]0:[137]1365
  161. 1375 [139]T[179]K[167]1370
  162. 1380 Y[178]Y[170]1:H(Y)[178]D:T[178]0
  163. 1385 C$[178]C$[170][202](B$,D,1)
  164. 1390 [139]Y[179]K[167]1365
  165. 1395 [139]C$[178]B$[167]1345
  166. 1400 :
  167. 1405 [153]""[166]22)""C$
  168. 1410 [153][166]16)"             CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD ";:P[178]K:[137]1530
  169. 1415 [139]ZL[179]P[170]1[167]1405
  170. 1420 CG[178][181](TI[173]60):[139]IN$[178]B$[167]TY[178]TY[170]1:M$[178]" (null)OU GUESSED IT!  "[170]S$:RH2[178]0
  171. 1425 [139]IN$[179][177]B$[167]M$[178]"DEF (null)ORRY. (null)OU DID NOT GUESS IT!LIST"[170]S$:RH2[178]1:[141]530:Q[178]Q[170]1
  172. 1429 [153]"LOAD"
  173. 1430 [139]RH2[178]1[167] [153]""S$" (null)HE WORD WAS SYS "B$" LIST"
  174. 1431 [139]RH2[178]0[167][153]" RIGHT$T TOOK YOUSYS"CG"LISTSECONDS."
  175. 1433 RI[178]RI[170]1:CS[178]CS[170]CG
  176. 1435 [153]""M$
  177. 1440 [141]830
  178. 1460 F[178]0:T[178]0:Y[178]0:K[178]0:M$[178]"":[140]
  179. 1470 [129]M[178]1[164]13:H(M)[178]0:[130]:[137]1315
  180. 1475 [143]*GRADE 6 WORDS*
  181. 1480 [131]ASHY,AUTUMNAL,CAROLLED,CONTINUITY,FIXATION,EMPTY,HEARTACHE,HAUGHTY
  182. 1485 [131]ENCLOSE,DITCHES,CRUMBLY,FITTING,ENVIED,CRADLED,FLATTEN,EXCITE,PAVED
  183. 1490 [131]REJOIN
  184. 1495 [131]HYMNAL,JELLIES,
  185. 1500 [131]DUMP,AFTERNOON,BRANCH,JUMPED,LASTED,DOWNSTAIRS,EVERYWHERE,PLAYTHING
  186. 1505 [131]STIFFLY,STRETCHY,VOYAGING,WITCH,WIRING,ALLEY,ADVERTISE,BONFIRE,COARSE
  187. 1510 [131]ATTRACT,DISOBEY,FAULTY,HYMN,INCREASE,INVITING,JANITOR,LOAN,MIXTURE
  188. 1515 [131]PEARL,PRETTIER,PROMPT,PROGRAM,SOUL,SENSE,VIEWER,RIDDLE,RECITE,RECEIVE
  189. 1520 [131]BURIED,ALTHOUGH,ACHE,ONION,PLEASANT
  190. 1525 [137]1800
  191. 1530 IN$[178]" ":ZT[178]TI[170]15:ZC[178]2
  192. 1532 [153]"ONON";
  193. 1533 US$[178]"":UL[178][195](B$):TI$[178]"000000":[141]35:IN$[178]UR$:UP[178]PG
  194. 1534 [137]1420
  195. 1536 [161]Z$:[139]Z$[179][177]""[167]1560
  196. 1540 [139]ZT[179][178]TI[167][153][202](" WAIT",ZC,3);"CMD";:ZC[178]3[171]ZC:ZT[178]TI[170]15
  197. 1545 :
  198. 1555 [137]1536
  199. 1560 Z[178][198](Z$):ZL[178][195](IN$)
  200. 1565 [139]Z[178]13[176]Z[178]20[167]1600
  201. 1570 [139]Z[179]65[176]Z[177]90[167]1600
  202. 1575 Z$[178][199](Z)
  203. 1580 [139]ZL[177]P[167]1535
  204. 1585 IN$[178]IN$[170]Z$:[139]DR[178]0[167][153]Z$;
  205. 1590 :
  206. 1600 [139]Z[178]13[175]ZL[179]P[170]1[167]1535
  207. 1605 [139]Z[178]13[167]IN$[178][202](IN$,2):[153]" "CR$;:[137]1415
  208. 1610 [139]Z[178]20[175]ZL[177]1[167]ZL[178]ZL[171]1:IN$[178][200](IN$,ZL):[153]" CMDCMD";:[137]1535
  209. 1615 [137]1536
  210. 1700 [153]"LOADPRINT"
  211. 1705 [153]" (null)(null)(null)(null)CLOSE(null)LEN(null)(null)VAL"
  212. 1706 [153]" TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  213. 1710 [153]" LEN(null)(null)(null)VALLEN(null)CLOSEATN(null)(null)(null)VAL(null)(null):"10[171]Q
  214. 1715 [153]" RIGHT$(null)LEN(null)(null)(null)VALLEN(null)CLOSEATN(null)(null)(null)VAL(null)(null):"Q:[143] 10-RI
  215. 1716 [139]RI[178]0[167]1720
  216. 1717 MG[178][181](CS[173]RI):[139]CS[173]RI[171]MG[178][177].5[167]MG[178]MG[170]1
  217. 1718 [153]" ATN(null)VAL(null)ATNCHR$VALCLOSE(null)RIGHT$(null)VAL ASC(null)(null)CLOSELEN(null)(null)(null)VALLEN(null) ATN(null)(null)(null)VAL(null)(null):"MG
  218. 1720 [141]830
  219. 1725 [137]1800
  220. 1800 [153]"SYSLOAD (null)OU HAVE A CHOICE:
  221. 1810 PRINT"  [208]RESS  [208] [146] TO PLAY AGAIN
  222. 1820 [153]"  (null)RESS  (null) WAIT TO RETURN TO DISK MENULIST"
  223. 1830 [161]R$:[139]R$[179][177]"P"[175]R$[179][177]"M"[175]R$[179][177]"(null)"[175]R$[179][177]"(null)"[167]1830
  224. 1840 [139]R$[178]"P"[167]800
  225. 1850 [151]631,13:[151]198,2
  226. 1860 [153]"LOAD RETURNING TO THE DISK MENU.
  227. 1870 LOAD"MENU",8
  228. 1880 RUN
  229. 1890 END
  230. 1900 REM BILL CUMBERLAND 90:10:04
  231.